home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / a_utils / ffccflow / ffccflow.lha / ffccc+flow / flow / prodes.for < prev    next >
Text File  |  1992-07-31  |  675b  |  42 lines
  1.       SUBROUTINE PRODES
  2. C! Steer the FLOW program
  3.       INCLUDE 'jobcom.h'
  4.       INCLUDE 'lunits.h'
  5.       LOUT  = 6
  6.       LINTRE = 50
  7. C
  8. C Initialise some arrays
  9. C
  10.       CALL INIARR
  11. C
  12. C process the input data from FLOP into tables
  13. C
  14.       IPASS = 1
  15.       CALL RDFLOP(IPASS)
  16. C
  17. C find the external routine names
  18. C
  19.       CALL EXTERN
  20. C
  21. C produce the tree chart
  22. C
  23.       IF(LTREE) CALL PROTRE
  24. C
  25. C produce the graphical structure chart
  26. C
  27.       IF(LCHRT) CALL PROCHT
  28. C
  29. C produce the subroutine headers
  30. C
  31. C      IF(LSUBS) CALL PROSUB
  32. C
  33. C produce the common block table
  34. C
  35.       IF(LCOMM) CALL PROCOM
  36. C
  37. C enter the subroutine tree query routine
  38. C
  39.       IF(LQERY) CALL PROQRY
  40. C
  41.       END
  42.